home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCREEN.SWG / 0052_Fast Retrace.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  605b  |  26 lines
  1. {
  2. > repeat until (port[$3da] and $08) = 0;
  3. > repeat until (port[$3da] and $08) <> 0;
  4. > The above code is some I've abducted from this echo. It waits for a
  5. > 'retrace' (sp).
  6. > Does anyone have faster code to wait for a retrace? This code seems to
  7. > greatly slow down my programs on certain (slower) computers.
  8.  
  9. I think TP is fast enough for that, because your video card needs much time
  10. to display the screen. Perhaps this is a little bit faster on REALLY slow
  11. machines:
  12. }
  13.  
  14. Asm
  15.   MOV DX,$03DA
  16. @@1:
  17.   IN  DX,AX
  18.   TEST AX,$08
  19.   JZ @@1
  20. @@2:
  21.   IN  DX,AX
  22.   TEST AX,$08
  23.   JNZ @@2
  24. End;
  25.  
  26.